home *** CD-ROM | disk | FTP | other *** search
/ The Best of MacTutor - S…e Code for Volumes 1 to 5 / The Best of MacTutor - Source Code for Volume 1-5 (Wayzata Technology)(6031)(1990).bin / Source Code / #51 (Dec 89) / AACK Folder / globals.p < prev    next >
Text File  |  1989-03-30  |  2KB  |  123 lines
  1. unit Globals;
  2.  
  3.  
  4. interface
  5.  
  6.  
  7.     uses
  8.         AppleTalk;
  9.  
  10.  
  11.     type
  12. {AppleTalk Types}
  13.         NameLookUpRec = record
  14.                 PbInUse: Boolean;
  15.                 CallDone: LongInt;
  16.                 xMPPPb: MPPParamBlock;
  17.             end;
  18.  
  19. {String Types}
  20.         Str32Hdl = ^Str32Ptr;
  21.         Str32Ptr = ^Str32;
  22.  
  23.  
  24.     const
  25.         F = false;
  26.         T = true;
  27.  
  28. {Constants used ONLY when debugging}
  29. {$IFC TALK_DEBUG }
  30.         SENDSELF = 1;
  31. {$ENDC}
  32.  
  33. {AppleTalk Constants}
  34.         ANYZONE = '*';
  35.         ANYOJB = '=';
  36.         ASYNC = T;
  37.         DOVERIFY = 1;
  38.         LOOKUPBUFFERSIZE = 1023;
  39.         MAXNAMELENGTH = 31;
  40.         MAXTOLOOKUP = 100;
  41.         SYNC = F;
  42.         XNCVERSION = 48;
  43.  
  44. {Dialog Constants}
  45.         rABOUTDLOGID = 128;
  46.  
  47.         rUSERNAMEDLOGID = 129;
  48.         rUSERNAMEITEM = 4;
  49.  
  50. {Event Constants}
  51.         MFEVENT = app4Evt;
  52.         RESUMEMASK = 1;
  53.         SUSPENDRESUMEMSG = 1;
  54.  
  55. {Menu Constants}
  56.         APPLEMENUID = 128;
  57.         ABOUTITEM = 1;
  58.  
  59.         FILEMENUID = 129;
  60.         QUITITEM = 1;
  61.  
  62.         EDITMENUID = 130;
  63.  
  64.         SPECIALMENUID = 131;
  65.         LOOKUPITEM = 1;
  66.         CONFIRMITEM = 2;
  67.         SENDITEM = 3;
  68.  
  69. {String Resource Constants}
  70.         rAPPUSERNAMESTRID = 128;
  71.         rCHOOSERUSERSTRID = -16096;
  72.  
  73.  
  74.     var
  75.         DoneFlag: Boolean;
  76.         DragRect: Rect;
  77.         Evt: EventRecord;
  78.  
  79. {Globals used ONLY when debugging}
  80. {$IFC TALK_DEBUG }
  81.         DebugOnRect: Rect;
  82.         OldSelfFlag: Byte;
  83.         SelfSendOn: Boolean;
  84.         SelfSendOnRect: Rect;
  85. {$ENDC}
  86.  
  87. {AppleTalk Globals}
  88.         ConfirmString: Str255;
  89.         ConfirmStringPos: Point;
  90.         ConfirmStringRect: Rect;
  91.         LookUpBuffer: array[0..LOOKUPBUFFERSIZE] of Integer;
  92.         LookUpNamePb: NameLookUpRec;
  93.         LookUpNTT: EntityName;
  94.         LookUpString: Str255;
  95.         LookUpStringPos: Point;
  96.         LookUpStringRect: Rect;
  97.         NBPsNTE: NamesTableEntry;
  98.         NewCallsExist: Boolean;
  99.         UserNTT: EntityName;
  100.         UserSkt: Byte;
  101.  
  102. {List Globals}
  103.         ListFrameRect, ListViewRect: Rect;
  104.         MaxRows, NameListLength: Integer;
  105.         NameListHdl: ListHandle;
  106.  
  107. {Event Globals}
  108.         SleepTime: LongInt;
  109.  
  110. {Menu Globals}
  111.         AppleMenu, FileMenu, EditMenu, SpecialMenu: MenuHandle;
  112.  
  113. {Window Globals}
  114.         TextHeight: Integer;
  115.         UserWindowFontInfo: FontInfo;
  116.         UserWindowProcsChanged: Boolean;
  117.         UserWindowRect: Rect;
  118.         UserWindow, WhichWindow: WindowPtr;
  119.         UserWRec: WindowRecord;
  120.  
  121.  
  122. implementation
  123. end.